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| 

000000 TITTTTITTT SSSSSSSS PPPPPPPP 000000 veil Ww LL UU UU LL 
000000 TTTTITTITT SSSSSSSS_ PPPPPPPP 000000 Wald Ww LL UU UU LL 

00 00 TT SS PP PP 00 00 WW Ww LL UU UU LL 

00 00 TT SS PP PP 00 00 WW Ww LL UU UU LL 

00 00 TT SS PP PP 00 00 WW Ww LL UU UU LL 

00 00 TT SS PP PP 00 00 WW Ww LL UU UU LL 

00 00 TT SSSSSS PPPPPPPP 00 00 WW Ww LL UU UU LL 

00 00 TT SSSSSS PPPPPPPP 00 00 WW Ww LL UU UU LL 

00 00 TT SS PP 00 00 Ww Ww WW LL UU UU LL 

00 00 TT SS PP 00 00 WwW Ww LL UU UU LL 

00 00 TT SS PP 00 00 WwWWw WwWWw LL UU UU LL cece 

00 00 TT SS PP 00 00 WWW WWW LL UU UU LL eeee 
000000 TT SSSSSSSS PP 000000 iol WW LLELELLLLLEL UUUUUUUUUU LLLLLLLLLL eeee 
000000 TT SSSSSSSS PP 000000 did WW LLELLLLLLE UUUUUUUUUU LLLLLLLLLL eeee 

LL T1111] SSSSSSSS 

LL HII] SSSSSSSS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 
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-SEP-1 MTHRTL.SRCJOTSPOWLUL.MAR; 1 (1) 
eTITLE OTSSPOWLULU = LU ** LU Exponent {ation Routine 
SIDENT /1=001/ File: OTSPOWLUL. MAR, Edit: S$BL1001 


MARRBARARAARAAASALASASSALALAARAAAA ASRS AAAS ESA SERRA ARRAS R EERE RASA REE E SEER RASS 


+ 
‘® + 
:* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
s* DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. ‘ 
:# ALL RIGHTS RESERVED. . 

® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
S® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
S® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED. , 
:* ® 
s® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
S® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. x 
** * 
:® ® 
:* ® 
:* * 
:*® * 
:* 8 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


(ARR RRARASASESAALALARASLALARARRSEAR EERE RASA RRR ERS A RARE AREAL ARRAS ESR A ERAS SS 


FACILITY: Mathematics Library 
ABSTRACT: 


This module contains OTS$POWLULU which takes an unsigned longword base 
to an unsigned longword power resulting in an unsigned longword. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 2-September-1980 
MODIFIED BY: 
1-001 - Original. SBL 2-September-1980 
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> 
zs 
“ 


® 
A 
$3 -SBTTL DECLARATIONS 
¢} + LIBRARY MACRO CALLS: | 
‘3 : NONE | 
1 : EXTERNAL DECLARATIONS: 
0 é : -DSABL GBL i; Force all external symbols to be declared 
4 *EXTRN MTHSSSIGNAL : Signal a math error 
5 TEXTRN MTHSK UNDE XP 3 Un etined exponentiation error code 
0 5 + MACROS: 
0 § : NONE 
00 60 ; 
90 6] ; EQUATED SYMBOLS: 
909 86 : NONE 
00 64; 
000 65 ; OWN STORAGE: 
000 66 ; 
000 67 ; NONE 
000 68 ;: 
4 $3 3 PSECT DECLARATIONS: 
000 4 Re -PSECT _MTH$CODE PIC, USR, CON, REL, LCL, SHR, - 
900 ie: EXE, RD, NOWRT, LONG 
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} 
p oe -SBTTL OTSSPOWLULU - LU ** LU Exponentiation Routine | 
r : FUNCTIONAL DESCRIPTION: 
8 : This routine takes an une ‘ened longword integer base to an unsigned 
, : longword integer power yielding an unsigned longword integer result. 
0 § : Overflow can not neppen in this routine. If the result or intermediate 
09 7: result is greater than 32 bits, the low 32 bits are used. 
0 5 ; CALLING SEQUENCE: 
000 ; ; result.wlu.v = OTSSPOWLULU (base.rlu.v, exponent.rlu.v) 
000 89 : FORMAL PARAMETERS: 
00000004 000 91 ° base = 4 ; Unsigned longword integer base by value 
00000008 44 38 7 exponent = 8 ; Unsigned longword integer exponent by value 
0000 94 : IMPLICIT INPUTS: 
000 95; 
000 96; NONE 
000 97; 
0000 98 ; IMPLICIT OUTPUTS: 
44 99 ; 
000 100; NONE 
0000 101; 
0000 19 ; FUNCTION VALUE: 
0000 103; 
444 198 3 The unsigned longword integer result is returned in RO. 
0000 106 : SIDE EFFECTS: 
0000 107 ; 
0000 108 ; MTHS_UNDEXP if both the base and exponent are zero 
0000 109; 
0000 110 ;-- 
44 111 
0004 4 ‘8 -ENTRY OTSSPOWLULU, “M<R2> : IV must be disabled 
50 01 dO 009 114 MOVL #1, RO ; Intialize result 
52 04 AC 00 000 115 MOVL base(AP), R2 3; Get base 
51 O8 AC OD 009 116 MOVL supanant iAP) R1 3; Get exponent ; 
1B Oo 00D 3611 BEQL ZERO_EXP ; If exponent is zero, result is 1 
iit 118 3 unless base is zero. 
BOOF 120 s+ 
it 121 : Scan exponent bits from right to left, squaring base each time uaroug Loop. 
iH } § 3 If an exponent bit is set, multiply the current result by the current base. 
OF 124 ° | 
OF 125 LOOP: P 
1351 +€8 +4 \ § Lee BLBS R1, PARTIAL ; If exponent bit set, get partial result 
51 51 FF er 78 13 128 "  ASHL #-1, R1, R1 ; Drop rightmost pypenent bit 
51 80000000 8F CA 0017 129 BiCcL2 #*x0006000, R1 : Clear leftmost bi 
19 +13 if 130 BEQL XIT 3 zero, we're done 
52 52 (C4 2 131 MULL2 R2, R2 ; Square current base 
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1 ¢ ; If overflow, use low 32 bits 
EA 11 ! t BRB LOOP : Continue searching 
o 135 PARTIAL: 
50 52 C4 1 § MULL2 R2, RO ; Get new partial result 
028 1 : lf we overflow = low 32 bits 
E8 11 00 8 8 BRB LOOP + Continue searchin 
° A 140 ZERO_EXP: 
52. 05 A 141 TSTL R2 3; Exponent is zero, is base? 
12 002C 146 BNEQ EXIT ¢ if net, result is 1 
43 00' 8F 9A 14 MOVZBL #MTHSK unoext -(SP) 3 If s it's an error 
00000000'GF 01 FB 144 CALLS #1, G*MTHS$SIGNAL ; Signal the error 
04 ; H 138 EXIT: RET ; Return with result in RO 
O3A 148 -END 3; End of module OTSSPOWLULU 
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MTHRTL SRC JOTSPOWLUL MAR; 1 


The working set Limit was 900 pages. 

1694 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 10 non-local and 0 local symbols. 
148 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


mm nme nr ere eee mr meme wm ner eres $ 


xl 01 | 
XPONENT z 
LOOP 1 
LOOP? 2 1 | 
pasion, cee ff | 
OT S$POWLULU 3 RG 
ZERO_EXP AR 1 
poem meemeoooennnn+ 
! Psect synopsis ! 
pemeeweeeeocccees + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000 0 “¢ 8.) 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE OOOOOSA 58.) a 8: Bon PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$ewewoeweweoeenocon= errs 
! ; Performance indicators ! 
Phase Page favits CPU Time Elapsed Time 
Initialization 29 0:00 $808 0:00:0 8 
connend processing 1 8:88 ee 839938 $2 
Symbol table sort : 0:00:00-0 0:00;00-60 
Symbol table output 0: 0:00:9 0:00;00.92 
Psect synopsis output 0:00:00.0 00:00:00.04 
Cross-reference output Ba 0 B98? BR: 89 239-00 
Assembler run totals 264 0:00:01. 34 0:00:09.11 


! ;_Macro library statistics : 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBJSTARLET.MLB; 2 ar ama 0 | 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESS1ON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSPOWLUL/GBJ=OBJ$:OTSPOWLUL MSRC$:OTSPOWLUL/UPDATE=(ENH$:OTSPOWLUL ) 


T 
al 


| 0265 AH-BT13A-SE ) NT CORPORATION 
gave VAX/VMS V4.0 D PROPRIETARY 


